Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_56 / yatzy / yatzy.bas (.txt) next >

Wrap

Atari STOS Basic | 1987-04-21 | 77KB | 182 lines

100 IF 1000 IF 1010 IF 1020 IF 1030 IF 1040 IF 1050 IF 1060 RETURN 1070 VARNAME 1080 FOR 1090 IF 110 IF 1100 VARNAME 1110 NEXT 1120 IF 1130 FOR 1140 IF 1150 VARNAME 1160 NEXT 1170 VARNAME 1180 GOSUB 1190 VARNAME 120 IF 1200 GOSUB 1210 VARNAME 1220 GOSUB 1230 RETURN 1240 VARNAME 1250 PAPER 1260 IF 1270 IF 1280 IF 1290 IF 130 GOTO 1300 PAPER 140 IF 150 VARNAME 160 FOR 170 VARNAME 1750 IF 1760 MUSIC 1770 VARNAME 1780 RETURN 1790 VARNAME 180 NEXT 1800 VARNAME 1810 IF 1820 IF 1830 IF 1840 IF 1850 IF 1860 IF 1870 IF 1880 GOTO 1890 IF 190 CLS 1900 IF 1910 IF 1920 IF 1930 IF 1940 RETURN 1950 VARNAME 1960 VARNAME 1970 IF 1980 IF 1990 IF 20 PALETTE 200 FOR 2000 IF 2010 IF 2020 IF 2030 IF 2040 IF 2050 IF 2060 IF 2070 IF 2080 IF 2090 IF 210 NEXT 2100 IF 2110 IF 2120 GOTO 2130 ANIM 2140 ANIM 2150 PAPER 2160 VARNAME 2170 IF 2180 IF 2190 GOTO 220 FOR 2200 SPRITE 2210 WAIT 2220 ANIM 2230 RETURN 2240 IF 2250 MUSIC 2260 VARNAME 230 FOR 240 NEXT 250 LIMIT SPRITE 260 FOR 270 SPRITE 280 MOVE X 290 NEXT 30 MODE 300 FOR 310 FOR 320 LOCATE 330 FOR 340 GOSUB 350 IF 360 FOR 370 NEXT 380 FOR 390 FOR 40 EXTENSION (Index #0) (Token 0x80) 400 VARNAME 410 VARNAME 420 IF 430 GOSUB 440 LOCATE 450 NEXT 460 LOCATE 470 GOSUB 480 IF 490 IF 50 DIM 500 VARNAME 510 FOR 520 FOR 530 IF 540 VARNAME 550 IF 560 FOR 570 IF 580 VARNAME 590 IF 60 PAPER 600 FOR 610 IF 620 VARNAME 630 NEXT 640 IF 650 VARNAME 660 IF 670 FOR 680 IF 690 FOR 70 EXTENSION (Index #0) (Token 0x80) 700 IF 710 FOR 720 NEXT 730 IF 740 FOR 750 NEXT 760 IF 770 FOR 780 NEXT 790 IF 80 VARNAME 800 VARNAME 810 FOR 820 IF 830 VARNAME 840 VARNAME 850 NEXT 860 IF 870 VARNAME 880 GOSUB 890 GOSUB 90 IF 900 VARNAME 910 GOSUB 920 NEXT 930 NEXT 940 NEXT 950 LOCATE 960 VARNAME 970 IF 980 EXTENSION (Index #0) (Token 0x80) 990 IF